# Replace m1 in line 2 with the model object to be used in the LH tests
wm <- m1
#### Man using Cyrillic - Women using Cyrillic
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), 'slogan_cyrillic = slogan_cyrillic + milena + slogan_cyrillic:milena') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

#### Man using Latin - Women using Cyrillic
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), '0 = slogan_cyrillic + milena + slogan_cyrillic:milena') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

#### Woman using Latin - Women using Cyrillic
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), 'milena = slogan_cyrillic + milena + slogan_cyrillic:milena') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

#### Woman using Latin - Man using Cyrillic
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), 'milena = slogan_cyrillic') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

#### Woman using Latin - Man using Latin
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), 'milena = 0') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

#### Man using Cyrillic - Man using Latin
out <- linearHypothesis(wm, vcov. = vcovHC(wm, 'HC2'), 'slogan_cyrillic = 0') 
attributes(out)$value # Difference
sqrt(attributes(out)$vcov) # SE
out$`Pr(>F)` # p-value

